perm filename R1.SAI[S,AIL]3 blob
sn#113947 filedate 1974-08-03 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN "R1"
C00003 ENDMK
C⊗;
BEGIN "R1"
RECORD_CLASS FOO (INTEGER X,Y,Z;REAL XX);
RECORD_CLASS BAZXX(INTEGER X,Y,Z;REAL XX);
RECORD_CLASS BAZYY12345678(INTEGER X,Y,Z;REAL XX);
RECORD_CLASS BAZZZ1234567890(INTEGER X,Y,Z;REAL XX);
RECORD_POINTER (FOO) F1,F2;
IF F1=F2 THEN ;
F1←NEW_RECORD(FOO);
F2←F1;
IF F1=F2 THEN ;
FOO:X[F1]←1;
FOO:Y[F1]←FOO:X[F1]+1;
END